﻿Imports System.ComponentModel
Imports System.Text

Namespace rtmpGUI
	Partial Public Class EditChannel
		Inherits Form

		Private fmain As Main

		Public Sub New(ByVal _main As Main)
			InitializeComponent()
			Me.Font = SystemFonts.MessageBoxFont
			fmain = _main
		End Sub

		Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button3.Click
			Me.Hide()
		End Sub

		Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click
			Dim array() As String = { txtTitle.Text, txtswfUrl.Text, txtLink.Text, txtPageUrl.Text, txtPlaypath.Text, txtLanguage.Text, txtAdvanced.Text, txtResolution.Text, txtBitrate.Text }
			fmain.EditChanel(array)
			Me.Hide()
		End Sub
	End Class
End Namespace